#!/usr/bin/perl
use XML::RPC;
use Data::Dumper;
$Data::Dumper::Indent = 3;
$Data::Dumper::Purity = 1;
my $xmlrpc = XML::RPC->new('http://aapugr.wordpress.com/xmlrpc.php');
my $result = $xmlrpc->call("metaWeblog.getRecentPosts", 1,'aapugr', 'ugr_aap', 1 );
my $postid =  $result->[0]->{'postid'};
my $post = {'title'=>'NuevoTitulo', 'description'=>'Nueva Descripcion'};
print Dumper $xmlrpc->call("metaWeblog.editPost", $postid, 'aapugr', 'ugr_aap', $post, 1);
